home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / CAPYHAT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-27  |  14.1 KB  |  384 lines
  1. 10  'CAPYHAT - Capacity hats for vertical Antennas - 21 DEC 95 rev. 27 SEP 96
  2. 20  REM   Edited from CAPHATQ, by W4RNL
  3. 30  REM   file "C:\BASIC\CAPHATQ.BAS"
  4. 40  IF EX$=""THEN EX$="EXIT"
  5. 50  CLS:KEY OFF
  6. 60  COLOR 7,0,1
  7. 70  PI=3.14159
  8. 80  X$=STRING$(80,32)
  9. 90  UL$=STRING$(80,205)
  10. 100  U$="##,###.####"
  11. 110  U1$="####.##"
  12. 120  U2$="####.###"
  13. 130  U3$="####.####"
  14. 140  '
  15. 150  '.....start
  16. 160  CLS
  17. 170  COLOR 15,2
  18. 180  PRINT " CAPACITIVE HATS for VERTICAL ANTENNAS";
  19. 190  PRINT TAB(61);"by ";CHR$(34);"LB";CHR$(34);" Cebik W4RNL ";
  20. 200  PRINT STRING$(80,32);
  21. 210  LOCATE CSRLIN-1,20:PRINT "edited for HAMCALC by George Murphy VE3ERP"
  22. 220  COLOR 1,0:PRINT STRING$(80,223);:COLOR 7,0
  23. 230  '
  24. 240  T=7
  25. 250  PRINT TAB(T);
  26. 260  PRINT "This program computes dimensions of open-frame 4-spoke (square),"
  27. 270  PRINT TAB(T);
  28. 280  PRINT "6-spoke (hexagonal), and 8-spoke (octagonal) capacitive hats, with"
  29. 290  PRINT TAB(T);
  30. 300  PRINT "without the spoke outer ends joined by lengths of the same material"
  31. 310  PRINT TAB(T);
  32. 320  PRINT "to form a continuous rim, using common materials. Calculations are"
  33. 330  PRINT TAB(T);
  34. 340  PRINT "effective for frequencies of from 3 to 30 MHz. Spoke lengths are"
  35. 350  PRINT TAB(T);
  36. 360  PRINT "within about 2.5% of NEC-2 models.":
  37. 370  PRINT UL$;
  38. 380  LN=CSRLIN     'line number
  39. 390  PRINT TAB(T);"Press number in < > to:"
  40. 400  PRINT UL$;
  41. 410  PRINT "      < 1 >  RUN program"
  42. 420  PRINT "      < 0 >  EXIT"
  43. 430  Z$=INKEY$:IF Z$=""THEN 430
  44. 440  IF Z$="0"THEN CLS:RUN EX$
  45. 450  IF Z$="1"THEN 470
  46. 460  GOTO 430
  47. 470  VIEW PRINT 4 TO 24:CLS:VIEW PRINT:LOCATE 4
  48. 480  '
  49. 490  '.....Frequency selection
  50. 500  INPUT " ENTER: Frequency of interest in MHz (range 3-30 MHz)";F
  51. 510  FL=3:FH=30:IF F<FL OR F>FH THEN 470 ELSE 520
  52. 520  LOCATE CSRLIN-1
  53. 530  PRINT" Selected frequency...........................";USING U$;F;
  54. 540  PRINT " MHz"
  55. 550  PRINT UL$;
  56. 560  LN=CSRLIN-1   'line number
  57. 570  '
  58. 580  '.....Antenna element diameter selection
  59. 590  PRINT " Press no. in < > that best describes the diameter of main ";
  60. 600  PRINT "radiating element:"
  61. 610  PRINT
  62. 620  PRINT "   < 1 >  10-16 mm (3/8 - 5/8 in.)
  63. 630  PRINT "   < 2 >  16-22 mm (5/8 - 7/8 in.)
  64. 640  PRINT "   < 3 >  22-28 mm (7/8 - 1 1/8 in.)
  65. 650  PRINT "   < 4 >  28-35 mm (1 1/8 - 1 3/8 in.)
  66. 660  PRINT "   < 5 >  35-41 mm (1 3/8 - 1 5/8 in.)
  67. 670  PRINT "   < 6 >  41-48 mm (1 5/8 - 1 7/8 in.)
  68. 680  PRINT "   < 7 >  48-54 mm (1 7/8 - 2 1/8 in.)
  69. 690  '
  70. 700  A$=INKEY$:IF A$=""THEN 700
  71. 710  IF A$="1"THEN KL=0.9688:KH=0.953 :D=0.5:GOTO 800
  72. 720  IF A$="2"THEN KL=0.9669:KH=0.9483:D=0.75:GOTO 800
  73. 730  IF A$="3"THEN KL=0.9654:KH=0.9445:D=1:GOTO 800
  74. 740  IF A$="4"THEN KL=0.9641:KH=0.9412:D=1.25:GOTO 800
  75. 750  IF A$="5"THEN KL=0.963 :KH=0.9383:D=1.5:GOTO 800
  76. 760  IF A$="6"THEN KL=0.962 :KH=0.9358:D=1.75:GOTO 800
  77. 770  IF A$="7"THEN KL=0.9611:KH=0.9335:D=2:GOTO 800
  78. 780  GOTO 700
  79. 790  '
  80. 800  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  81. 810  KV=(((F/3)-1)*0.1/3)+0.61
  82. 820  KQ=KH+((0.434294*LOG(FH/F))^KV)*(KL-KH):LK=KQ*245.893:MQ=1/KQ
  83. 830  PRINT" Main element design diameter.................";USING U$;D;
  84. 840  PRINT " in. =";USING U1$;D*25.4;:PRINT " mm"
  85. 850  PRINT UL$;
  86. 860  LN=CSRLIN-1   'line number
  87. 870  '
  88. 880  '.....Open-frame hat wire or tubing diameter selection.
  89. 890  '     perimeter wire assumed to have same diameter as spoke wire.
  90. 900  PRINT " Press number in < > to select diameter of hat spokes & rim you ";
  91. 910  PRINT "plan to use:"
  92. 920  PRINT
  93. 930  PRINT "   < 1 > #12 AWG =  .0808 in. =  2.1 mm ( wire )"
  94. 940  PRINT "   < 2 > #10 AWG =  .1019 in. =  2.6 mm ( wire )"
  95. 950  PRINT "   < 3 > # 8 AWG =  .1285 in. =  3.3 mm ( wire )"
  96. 960  PRINT "   < 4 > ....... =  .250  in. =  6.4 mm ( rod or tubing )"
  97. 970  PRINT "   < 5 > ....... =  .500  in. = 12.7 mm ( rod or tubing )"
  98. 980  PRINT "   < 6 > ....... =  .750  in. = 19.1 mm ( rod or tubing )"
  99. 990  PRINT "   < 7 > ....... = 1.000  in. = 25.4 mm ( rod or tubing )"
  100. 1000  '
  101. 1010  A$=INKEY$:IF A$=""THEN 1010
  102. 1020  IF A$="1"THEN 1120
  103. 1030  IF A$="2"THEN 1190
  104. 1040  IF A$="3"THEN 1260
  105. 1050  IF A$="4"THEN 1330
  106. 1060  IF A$="5"THEN 1400
  107. 1070  IF A$="6"THEN 1470
  108. 1080  IF A$="7"THEN 1540
  109. 1090  GOTO 1010
  110. 1100  '
  111. 1110  '          Calibration constants derived from models
  112. 1120  KCL=1.2408:KGL=1.2452:KCH=1.2323:KGH=1.2403:HKCL=1.0779:HKGL=1.1063
  113. 1130  HKCH=1.096:HKGH=1.1367:OKCL=0.9948:OKGL=1.0338:OKCH=1.0288:OKGH=1.0863
  114. 1140  KCLS=2.1511:KGLS=2.1471:KCHS=1.9623:KGHS=1.9409:HKCLS=1.6662:HKGLS=1.7121
  115. 1150  HKCHS=1.5888:HKGHS=1.6449:OKCLS=1.414:OKGLS=1.4748:OKCHS=1.3919
  116. 1160  OKGHS=1.4759
  117. 1170  DCAP=0.0808:GOTO 1610
  118. 1180  '
  119. 1190  KCL=1.2272:KGL=1.2336:KCH=1.2176:KGH=1.2304:HKCL=1.0648:HKGL=1.0945
  120. 1200  HKCH=1.0806:HKGH=1.1252:OKCL=0.9827:OKGL=1.0225:OKCH=1.014:OKGH=1.0745
  121. 1210  KCLS=2.1135:KGLS=2.1142:KCHS=1.9178:KGHS=1.908:HKCLS=1.6365:HKGLS=1.6849
  122. 1220  HKCHS=1.5513:HKGHS=1.6151:OKCLS=1.39:OKGLS=1.4522:OKCHS=1.3607
  123. 1230  OKGHS=1.4495
  124. 1240  DCAP=0.1019:GOTO 1610
  125. 1250  '
  126. 1260  KCL=1.2133:KGL=1.2216:KCH=1.2023:KGH=1.2201:HKCL=1.0515:HKGL=1.0825
  127. 1270  HKCH=1.0648:HKGH=1.1133:OKCL=0.9704:OKGL=1.0109:OKCH=0.9989:OKGH=1.0623
  128. 1280  KCLS=2.0748:KGLS=2.0803:KCHS=1.8709:KGHS=1.8734:HKCLS=1.6061:HKGLS=1.6583
  129. 1290  HKCHS=1.5123:HKGHS=1.5838:OKCLS=1.3657:OKGLS=1.429:OKCHS=1.3283
  130. 1300  OKGHS=1.422
  131. 1310  DCAP=0.1285:GOTO 1610
  132. 1320  '
  133. 1330  KCL=1.172:KGL=1.1858:KCH=1.1538:KGH=1.1871:HKCL=1.0122:HKGL=1.0464
  134. 1340  HKCH=1.0155:HKGH=1.0762:OKCL=0.9348:OKGL=0.9763:OKCH=0.9531:OKGH=1.0251
  135. 1350  KCLS=1.9584:KGLS=1.9776:KCHS=1.7223:KGHS=1.7624:HKCLS=1.5147:HKGLS=1.5728
  136. 1360  HKCHS=1.3905:HKGHS=1.485:OKCLS=1.2928:OKGLS=1.3594:OKCHS=1.2284
  137. 1370  OKGHS=1.3356
  138. 1380  DCAP=0.25:GOTO 1610
  139. 1390  '
  140. 1400  KCL=1.1259:KGL=1.1456:KCH=1.0931:KGH=1.1458:HKCL=0.9679:HKGL=1.0061
  141. 1410  HKCH=1.009:HKGH=1.0317:OKCL=0.8942:OKGL=0.9382:OKCH=0.9021:OKGH=0.9825
  142. 1420  KCLS=1.8261:KGLS=1.8606:KCHS=1.5419:KGHS=1.6252:HKCLS=1.4118:HKGLS=1.4775
  143. 1430  HKCHS=1.3159:HKGHS=1.3658:OKCLS=1.2266:OKGLS=1.2812:OKCHS=1.1133
  144. 1440  OKGHS=1.2325
  145. 1450  DCAP=0.5:GOTO 1610
  146. 1460  '
  147. 1470  KCL=1.0969:KGL=1.1204:KCH=1.05:KGH=1.1165:HKCL=0.9407:HKGL=0.9809
  148. 1480  HKCH=0.9181:HKGH=1.0019:OKCL=0.8699:OKGL=0.9146:OKCH=0.8709:OKGH=0.9556
  149. 1490  KCLS=1.7418:KGLS=1.7735:KCHS=1.4251:KGHS=1.5337:HKCLS=1.347:HKGLS=1.4171
  150. 1500  HKCHS=1.1592:HKGHS=1.2877:OKCLS=1.1611:OKGLS=1.2322:OKCHS=1.0417
  151. 1510  OKGHS=1.1655
  152. 1520  DCAP=0.75:GOTO 1610
  153. 1530  '
  154. 1540  KCL=1.0753:KGL=1.1014:KCH=1.014:KGH=1.0921:HKCL=0.9204:HKGL=0.9622
  155. 1550  HKCH=0.8878:HKGH=0.9782:OKCL=0.8522:OKGL=0.8974:OKCH=0.8474:OKGH=0.9354
  156. 1560  KCLS=1.6783:KGLS=1.7295:KCHS=1.3392:KGHS=1.4639:HKCLS=1.2987:HKGLS=1.3719
  157. 1570  HKCHS=1.0948:HKGHS=1.229:OKCLS=1.1237:OKGLS=1.1956:OKCHS=0.9893
  158. 1580  OKGHS=1.115
  159. 1590  DCAP=1:GOTO 1610
  160. 1600  '
  161. 1610  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  162. 1620  PRINT" Selected hat material diameter...............";USING U$;DCAP;
  163. 1630  PRINT " in. =";USING U1$;DCAP*25.4;:PRINT " mm"
  164. 1640  PRINT UL$;
  165. 1650  LN=CSRLIN-1   'line number
  166. 1660  '
  167. 1670  '.....Antenna length selection between 60 and 85 electrical degrees
  168. 1680  KF=LK*12:KA=KF/90
  169. 1690  HS=(KA*60)/F:HL=(KA*85)/F:HSF=HS/12:HLF=HL/12
  170. 1700  PRINT " At the selected frequency and element sizes the length of a ";
  171. 1710  PRINT "capacitive hat"
  172. 1720  PRINT
  173. 1730  PRINT " vertical should be between a MINIMUM of";USING U2$;HSF;
  174. 1740  PRINT " ft. (";USING U2$;HSF*0.3048;:PRINT " m. )"
  175. 1750  PRINT "                            <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  176. 1760  PRINT "                        and a MAXIMUM of";USING U2$;HLF;
  177. 1770  PRINT " ft. (";USING U2$;HLF*0.3048;:PRINT " m. )"
  178. 1780  PRINT "                            <0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!><0xDF!>"
  179. 1790  COLOR 15,2
  180. 1800  PRINT " Do you want to specify length in (m)etres or (f)eet?   (m/f) "
  181. 1810  COLOR 7,0
  182. 1820  Z$=INKEY$
  183. 1830  IF Z$="m"THEN M=0.3048:M$=" metres":GOTO 1860
  184. 1840  IF Z$="f"THEN M=1:M$=" feet":GOTO 1860
  185. 1850  GOTO 1820
  186. 1860  LOCATE CSRLIN-1:PRINT X$;:LOCATE CSRLIN-1
  187. 1870  PRINT " ENTER: Desired antenna length in";M$;".....";:INPUT HF:HF=HF/M
  188. 1880  IF HF>HLF OR HF<HSF THEN BEEP:GOTO 1890 ELSE 1910
  189. 1890  PRINT " LENGTH MUST BE WITHIN THE MINIMUM AND MAXIMUM LIMITS!":GOTO 1870
  190. 1900  '
  191. 1910  VIEW PRINT LN TO 24:CLS:VIEW PRINT:LOCATE LN
  192. 1920  PRINT " Antenna physical length......................";USING U$;HF;
  193. 1930  PRINT " ft. =";USING U2$;HF*0.3048;:PRINT " m"
  194. 1940  '
  195. 1950  '.....Required hat capacitance calculation
  196. 1960  HR=LK/F:H=HF*12
  197. 1970  ZO=60*(LOG((4*(H*MQ))/D)-(1-((F/30)*0.583)))
  198. 1980  LA=(HF/HR)*90:LC=90-LA:LCR=(PI*LC)/180:X=ZO/TAN(LCR)
  199. 1990  C=10^6/((2*PI)*(F*X)):CHD=1.1121*C
  200. 2000  PRINT
  201. 2010  PRINT " Antenna electrical length....................";USING U$;LA;
  202. 2020  PRINT "<UNK! {00F8}>"
  203. 2030  PRINT " Loading electrical length....................";USING U$;LC;
  204. 2040  PRINT "<UNK! {00F8}>"
  205. 2050  PRINT " Required capacitive reactance................";USING U$;X;
  206. 2060  PRINT " -"
  207. 2070  PRINT " Required capacitance.........................";USING U$;C;
  208. 2080  PRINT " pF"
  209. 2090  PRINT " Radius of solid metal disc hat...............";USING U$;CHD/2;
  210. 2100  PRINT " in. =";USING U2$;CHD/2*2.54;:PRINT " cm"
  211. 2110  PRINT
  212. 2120  '
  213. 2130  '          Square spoke calculation and calibration
  214. 2140  KCF=(0.4343*LOG(F/3))*(KCL-KCH):KC=KCL-KCF
  215. 2150  KCD=(1.661*(0.4343*LOG(D/0.5)))*(KGL-KCL):KC=KC+KCD
  216. 2160  KCG=(1.661*(0.1886*((LOG(D/0.5))*(LOG(F/3)))))*(KC-KGH):KC=KC-KCG
  217. 2170  SPT=(KC*C)
  218. 2180  KCFS=(0.4343*LOG(F/3))*(KCLS-KCHS):KCS=KCLS-KCFS
  219. 2190  KCDS=(1.661*(0.4343*LOG(D/0.5)))*(KGLS-KCLS):KCS=KCS+KCDS
  220. 2200  KCGS=(1.661*(0.1886*((LOG(D/0.5))*(LOG(F/3)))))*(KCS-KGHS):KCS=KCS-KCGS
  221. 2210  SPTS=(KCS*C)
  222. 2220  '
  223. 2230  '          Hexagon spoke calculation and calibration
  224. 2240  HKCF=(0.4343*LOG(F/3))*(HKCL-HKCH):HKC=HKCL-HKCF
  225. 2250  HKCD=(1.661*(0.4343*LOG(D/0.5)))*(HKGL-HKCL):HKC=HKC+HKCD
  226. 2260  HKCG=(1.661*(0.1886*((LOG(D/0.5))*(LOG(F/3)))))*(HKC-HKGH):HKC=HKC-HKCG
  227. 2270  HSPT=(HKC*C)
  228. 2280  HKCFS=(0.4343*LOG(F/3))*(HKCLS-HKCHS):HKCS=HKCLS-HKCFS
  229. 2290  HKCDS=(1.661*(0.4343*LOG(D/0.5)))*(HKGLS-HKCLS):HKCS=HKCS+HKCDS
  230. 2300  HKCGS=(1.661*(0.1886*((LOG(D/0.5))*(LOG(F/3)))))*(HKCS-HKGHS):HKCS=HKCS-HKCGS
  231. 2310  HSPTS=(HKCS*C)
  232. 2320  '
  233. 2330  '          Octagon spoke calculation and calibration
  234. 2340  OKCF=(0.4343*LOG(F/3))*(OKCL-OKCH):OKC=OKCL-OKCF
  235. 2350  OKCD=(1.661*(0.4343*LOG(D/0.5)))*(OKGL-OKCL):OKC=OKC+OKCD
  236. 2360  OKCG=(1.661*(0.1886*((LOG(D/0.5))*(LOG(F/3)))))*(OKC-OKGH):OKC=OKC-OKCG
  237. 2370  OSPT=(OKC*C)
  238. 2380  OKCFS=(0.4343*LOG(F/3))*(OKCLS-OKCHS):OKCS=OKCLS-OKCFS
  239. 2390  OKCDS=(1.661*(0.4343*LOG(D/0.5)))*(OKGLS-OKCLS):OKCS=OKCS+OKCDS
  240. 2400  OKCGS=(1.661*(0.1886*((LOG(D/0.5))*(LOG(F/3)))))*(OKCS-OKGHS):OKCS=OKCS-OKCGS
  241. 2410  OSPTS=(OKCS*C)
  242. 2420  '
  243. 2430  COLOR 0,7
  244. 2440  PRINT " .....HATS WITH SPOKE OUTER ENDS JOINED TO FORM A CONTINUOUS RIM:"
  245. 2450  COLOR 7,0
  246. 2460  PRINT " Square Hat:    length of each of 4 spokes....";USING U$;SPT;
  247. 2470  PRINT " in. =";USING U2$;SPT*2.54;:PRINT " cm"
  248. 2480  PRINT " Hexagonal Hat: length of each of 6 spokes....";USING U$;HSPT;
  249. 2490  PRINT " in. =";USING U2$;HSPT*2.54;:PRINT " cm"
  250. 2500  PRINT " Octagonal Hat: length of each of 8 spokes....";USING U$;OSPT;
  251. 2510  PRINT " in. =";USING U2$;OSPT*2.54;:PRINT " cm"
  252. 2520  PRINT
  253. 2530  COLOR 0,7
  254. 2540  PRINT " .....HATS WITH SPOKES ONLY (no outer rim):"
  255. 2550  COLOR 7,0
  256. 2560  PRINT " Square Hat:    length of each of 4 spokes....";USING U$;SPTS;
  257. 2570  PRINT " in. =";USING U2$;SPTS*2.54;:PRINT " cm"
  258. 2580  PRINT " Hexagonal Hat: length of each of 6 spokes....";USING U$;HSPTS;
  259. 2590  PRINT " in. =";USING U2$;HSPTS*2.54;:PRINT " cm"
  260. 2600  PRINT " Octagonal Hat: length of each of 8 spokes....";USING U$;OSPTS;
  261. 2610  PRINT " in. =";USING U2$;OSPTS*2.54;:PRINT " cm"
  262. 2620  GOSUB 3710
  263. 2630  '
  264. 2640  CLS    'start page 2
  265. 2650  '.....hat dimensions
  266. 2660  COLOR 15,2:LOCATE,24:PRINT " HAT GEOMETRY - HATS WITH RIMS "
  267. 2670  PRINT
  268. 2680  PRINT " SQUARE HAT - 4 SPOKES 90<UNK! {00F8}> APART:"
  269. 2690  COLOR 7,0
  270. 2700  SIDE=2*SQR(SPT^2/2)
  271. 2710  FLAT=SIDE
  272. 2720  LGTH=4*SPT+4*SIDE
  273. 2730  PRINT "    Length of each spoke......................  ";USING U3$;SPT;
  274. 2740  PRINT " in. =";USING U2$;SPT*2.54;:PRINT " cm."
  275. 2750  PRINT "    Distance between opposite corners.........  ";USING U3$;2*SPT;
  276. 2760  PRINT " in. =";USING U2$;2*SPT*2.54;:PRINT " cm."
  277. 2770  PRINT "    Distance between opposite sides...........  ";USING U3$;FLAT;
  278. 2780  PRINT " in. =";USING U2$;FLAT*2.54;:PRINT " cm."
  279. 2790  PRINT "    Length of each of 4 equal sides...........  ";USING U3$;SIDE;
  280. 2800  PRINT " in. =";USING U2$;SIDE*2.54;:PRINT " cm."
  281. 2810  PRINT "    Total length of spoke & rim material......  ";USING U3$;LGTH;
  282. 2820  PRINT " in. =";USING U2$;LGTH*2.54;:PRINT " cm."
  283. 2830  PRINT
  284. 2840  '
  285. 2850  COLOR 15,2:PRINT " HEXAGONAL HAT - 6 SPOKES 60<UNK! {00F8}> APART:"
  286. 2860  COLOR 7,0
  287. 2870  SIDE=HSPT
  288. 2880  FLAT=2*COS(30*PI/180)*HSPT
  289. 2890  LGTH=6*HSPT+6*SIDE
  290. 2900  PRINT "    Length of each spoke......................  ";USING U3$;HSPT;
  291. 2910  PRINT " in. =";USING U2$;HSPT*2.54;:PRINT " cm."
  292. 2920  PRINT "    Distance between opposite corners.........  ";USING U3$;2*HSPT;
  293. 2930  PRINT " in. =";USING U2$;2*HSPT*2.54;:PRINT " cm."
  294. 2940  PRINT "    Distance between opposite sides...........  ";USING U3$;FLAT;
  295. 2950  PRINT " in. =";USING U2$;FLAT*2.54;:PRINT " cm."
  296. 2960  PRINT "    Length of each of 6 equal sides...........  ";USING U3$;SIDE;
  297. 2970  PRINT " in. =";USING U2$;SIDE*2.54;:PRINT " cm."
  298. 2980  PRINT "    Total length of spoke & rim material......  ";USING U3$;LGTH;
  299. 2990  PRINT " in. =";USING U2$;LGTH*2.54;:PRINT " cm."
  300. 3000  PRINT
  301. 3010  '
  302. 3020  COLOR 15,2:PRINT " OCTAGONAL HAT - 8 SPOKES 22RENUM<UNK! {00F8}> APART:"
  303. 3030  COLOR 7,0
  304. 3040  SIDE=2*SIN(22.5*PI/180)*OSPT
  305. 3050  FLAT=2*COS(22.5*PI/180)*OSPT
  306. 3060  LGTH=8*OSPT+8*SIDE
  307. 3070  PRINT "    Length of each spoke......................  ";USING U3$;OSPT;
  308. 3080  PRINT " in. =";USING U2$;OSPT*2.54;:PRINT " cm."
  309. 3090  PRINT "    Distance between opposite corners.........  ";USING U3$;2*OSPT;
  310. 3100  PRINT " in. =";USING U2$;2*OSPT*2.54;:PRINT " cm."
  311. 3110  PRINT "    Distance between opposite sides...........  ";USING U3$;FLAT;
  312. 3120  PRINT " in. =";USING U2$;FLAT*2.54;:PRINT " cm."
  313. 3130  PRINT "    Length of each of 8 equal sides...........  ";USING U3$;SIDE;
  314. 3140  PRINT " in. =";USING U2$;SIDE*2.54;:PRINT " cm."
  315. 3150  PRINT "    Total length of spoke & rim material......  ";USING U3$;LGTH;
  316. 3160  PRINT " in. =";USING U2$;LGTH*2.54;:PRINT " cm."
  317. 3170  '
  318. 3180  GOSUB 3710
  319. 3190  CLS    'start page 3
  320. 3200  '.....hat dimensions
  321. 3210  COLOR 15,2:LOCATE,22:PRINT " HAT GEOMETRY - HATS WITH SPOKES ONLY "
  322. 3220  PRINT
  323. 3230  PRINT " SQUARE HAT - 4 SPOKES 90<UNK! {00F8}> APART:"
  324. 3240  COLOR 7,0
  325. 3250  SIDE=2*SQR(SPTS^2/2)
  326. 3260  FLAT=SIDE
  327. 3270  LGTH=4*SPTS
  328. 3280  PRINT "    Length of each spoke......................  ";USING U3$;SPTS;
  329. 3290  PRINT " in. =";USING U2$;SPTS*2.54;:PRINT " cm."
  330. 3300  PRINT "    Length of each horizontal element.........  ";USING U3$;2*SPTS;
  331. 3310  PRINT " in. =";USING U2$;2*SPTS*2.54;:PRINT " cm."
  332. 3320  PRINT "    Distance between adjacent spoke outer ends  ";USING U3$;SIDE;
  333. 3330  PRINT " in. =";USING U2$;SIDE*2.54;:PRINT " cm."
  334. 3340  PRINT "    Total length of spoke material............  ";USING U3$;LGTH;
  335. 3350  PRINT " in. =";USING U2$;LGTH*2.54;:PRINT " cm."
  336. 3360  PRINT
  337. 3370  '
  338. 3380  COLOR 15,2:PRINT " HEXAGONAL HAT - 6 SPOKES 60<UNK! {00F8}> APART:"
  339. 3390  COLOR 7,0
  340. 3400  SIDE=HSPTS
  341. 3410  FLAT=2*COS(30*PI/180)*HSPTS
  342. 3420  LGTH=6*HSPTS
  343. 3430  PRINT "    Length of each spoke......................  ";USING U3$;HSPTS;
  344. 3440  PRINT " in. =";USING U2$;HSPTS*2.54;:PRINT " cm."
  345. 3450  PRINT "    Length of each horizontal element.........  ";USING U3$;2*HSPTS;
  346. 3460  PRINT " in. =";USING U2$;2*HSPTS*2.54;:PRINT " cm."
  347. 3470  PRINT "    Distance between adjacent spoke outer ends  ";USING U3$;SIDE;
  348. 3480  PRINT " in. =";USING U2$;SIDE*2.54;:PRINT " cm."
  349. 3490  PRINT "    Total length of spoke material............  ";USING U3$;LGTH;
  350. 3500  PRINT " in. =";USING U2$;LGTH*2.54;:PRINT " cm."
  351. 3510  PRINT
  352. 3520  '
  353. 3530  COLOR 15,2:PRINT " OCTAGONAL HAT - 8 SPOKES 22RENUM<UNK! {00F8}> APART:"
  354. 3540  COLOR 7,0
  355. 3550  SIDE=2*SIN(22.5*PI/180)*OSPTS
  356. 3560  LGTH=8*OSPTS
  357. 3570  PRINT "    Length of each spoke......................  ";USING U3$;OSPTS;
  358. 3580  PRINT " in. =";USING U2$;OSPTS*2.54;:PRINT " cm."
  359. 3590  PRINT "    Length of each horizontal element.........  ";USING U3$;2*OSPTS;
  360. 3600  PRINT " in. =";USING U2$;2*OSPTS*2.54;:PRINT " cm."
  361. 3610  PRINT "    Distance between adjacent spoke outer ends  ";USING U3$;SIDE;
  362. 3620  PRINT " in. =";USING U2$;SIDE*2.54;:PRINT " cm."
  363. 3630  PRINT "    Total length of spoke material............  ";USING U3$;LGTH;
  364. 3640  PRINT " in. =";USING U2$;LGTH*2.54;:PRINT " cm."
  365. 3650  '
  366. 3660  '.....end
  367. 3670  GOSUB 3710
  368. 3680  GOTO 150
  369. 3690  END
  370. 3700  '
  371. 3710  'HARDCOPY
  372. 3720  GOSUB 3830:LOCATE 25,2:COLOR 14,6
  373. 3730  PRINT " Press 1 to print screen, 2 to print screen & ";
  374. 3740  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  375. 3750  Z$=INKEY$:IF Z$="3"THEN GOSUB 3830:RETURN
  376. 3760  IF Z$="1"OR Z$="2"THEN GOSUB 3830:GOTO 3780
  377. 3770  GOTO 3750
  378. 3780  FOR QX=1 TO 24:FOR QY=1 TO 80
  379. 3790  LPRINT CHR$(SCREEN(QX,QY));
  380. 3800  NEXT QY:NEXT QX
  381. 3810  IF Z$="2"THEN LPRINT CHR$(12)
  382. 3820  GOTO 3720
  383. 3830  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  384.